Imports System.Xml
Imports System.Data.SqlClient
Public Class dLocalidad
    Public Function Insertar(ByVal Nombre As String, ByVal CodigoPostal As String, ByVal CodigoProv As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        'Parametros.Add(New SqlParameter("@CodigoLocalidad", CodigoLocalidad))
        Parametros.Add(New SqlParameter("@PeNombre", Nombre))
        Parametros.Add(New SqlParameter("@PeCodigoPostal", CodigoPostal))
        Parametros.Add(New SqlParameter("@PeCodigoProv", CodigoProv))
        Return dConexion.ABM("STORE_TblLocalidadAlta", Parametros)
    End Function
    Public Function Eliminar(ByVal CodigoLocalidad As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@PeCodigoLocalidad", CodigoLocalidad))
        Return dConexion.Consultar("STORE_TblLocalidadELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal CodigoLocalidad As String, ByVal Nombre As String, ByVal CodigoPostal As String, ByVal CodigoProv As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@PeCodigoLocalidad", CodigoLocalidad))
        Parametros.Add(New SqlParameter("@PeNombre", Nombre))
        Parametros.Add(New SqlParameter("@PeCodigoPostal", CodigoPostal))
        Parametros.Add(New SqlParameter("@PeCodigoProv", CodigoProv))
        Return dConexion.ABM("STORE_TblLocalidadMODIFICAR", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal CodigoLocalidad As String, _
                                    ByVal Nombre As String, _
                                    ByVal CodigoPostal As String, _
                                    ByVal CodigoProv As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If (CodigoLocalidad <> "") Then
            Parametros.Add(New SqlParameter("@peCodigoLocalidad", CodigoLocalidad))
        End If
        If (Nombre <> "") Then
            Parametros.Add(New SqlParameter("@peNombre", Nombre))
        End If
        If (CodigoPostal <> "") Then
            Parametros.Add(New SqlParameter("@peCodigoPostal", CodigoPostal))
        End If
        If (CodigoProv <> "") Then
            Parametros.Add(New SqlParameter("@peCodigoProv", CodigoProv))
        End If
        Return dConexion.Consultar("STORE_TblLocalidadBUSCARFILTRADO", Parametros)
    End Function
    Public Function Listar(ByVal Nombre As String, ByVal CodigoPostal As String, ByVal CodigoProv As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList

        If (Nombre <> "") Then
            Parametros.Add(New SqlParameter("@pENombreLike", Nombre))
        End If
        If (CodigoPostal <> "") Then
            Parametros.Add(New SqlParameter("@pECodigoPostal", CodigoPostal))
        End If
        If (CodigoProv <> "") Then
            Parametros.Add(New SqlParameter("@pECodigoProv", CodigoProv))
        End If
        Return CapaDeDatos.dConexion.Consultar("STORE_TblLocalidadBuscarFiltrado", Parametros)
    End Function

    Public Function ListarNombres(ByVal CodigoLocalidad As String, ByVal Nombre As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If (CodigoLocalidad <> "") Then
            Parametros.Add(New SqlParameter("@peCodigoLocalidad", CodigoLocalidad))
        End If
        If (Nombre <> "") Then
            Parametros.Add(New SqlParameter("@pENombreLike", Nombre))
        End If

        Return CapaDeDatos.dConexion.Consultar("STORE_TblLocalidadBuscarFiltrado", Parametros)
    End Function
End Class